collapse_plus <- function(x) {
  paste0(paste(x, collapse = " +\n    "), " +\n    ")
}